home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Over 1,000 Windows 95 Programs
/
Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso
/
1271
/
term.frm
< prev
next >
Wrap
Text File
|
1997-03-21
|
12KB
|
529 lines
VERSION 2.00
Begin Form Term
AutoRedraw = -1 'True
BorderStyle = 3 'Fixed Double
Caption = "TERM"
ClientHeight = 5160
ClientLeft = 2760
ClientTop = 945
ClientWidth = 8595
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Courier New"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 5850
Left = 2700
LinkTopic = "Form1"
ScaleHeight = 5160
ScaleWidth = 8595
Top = 315
Width = 8715
Begin Frame AcceptPane
BackColor = &H00C0C0C0&
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1335
Left = 2760
TabIndex = 1
Top = 2160
Visible = 0 'False
Width = 2295
Begin CommandButton AcceptOK
Caption = "OK"
Height = 375
Left = 720
TabIndex = 2
Top = 840
Width = 855
End
Begin TextBox AcceptText
Height = 375
Left = 120
TabIndex = 0
Top = 360
Width = 2055
End
End
Begin Timer Timer
Interval = 125
Left = 360
Top = 240
End
Begin Menu menuLine
Caption = "Line"
Begin Menu menuExit
Caption = "E&xit"
End
Begin Menu menuOnLine
Caption = "OnLine"
End
Begin Menu menuOffLine
Caption = "OffLine"
Enabled = 0 'False
End
End
Begin Menu menuChange
Caption = "Change"
Begin Menu menuPort
Caption = "Port"
Begin Menu menuCOM1
Caption = "COM1"
Checked = -1 'True
End
Begin Menu menuCOM2
Caption = "COM2"
End
Begin Menu menuCOM3
Caption = "COM3"
End
Begin Menu menuCOM4
Caption = "COM4"
End
End
Begin Menu menuBaud
Caption = "Baud"
Begin Menu menu1200
Caption = "1200"
End
Begin Menu menu2400
Caption = "2400"
End
Begin Menu menu4800
Caption = "4800"
End
Begin Menu menu9600
Caption = "9600"
End
Begin Menu menu19200
Caption = "19200"
End
Begin Menu menu38400
Caption = "38400"
Checked = -1 'True
End
Begin Menu menu57600
Caption = "57600"
End
End
Begin Menu menuParity
Caption = "Parity"
Begin Menu menuNone
Caption = "None"
Checked = -1 'True
End
Begin Menu menuEven
Caption = "Even"
End
Begin Menu menuOdd
Caption = "Odd"
End
End
Begin Menu menuDataBits
Caption = "DataBits"
Begin Menu menuSeven
Caption = "Seven"
End
Begin Menu menuEight
Caption = "Eight"
Checked = -1 'True
End
End
Begin Menu menuStopBits
Caption = "StopBits"
Begin Menu menuOne
Caption = "One"
Checked = -1 'True
End
Begin Menu menuTwo
Caption = "Two"
End
End
End
Begin Menu menuDial
Caption = "Dial"
Enabled = 0 'False
End
Begin Menu menuSend
Caption = "Send"
Enabled = 0 'False
Begin Menu menuTXxmodem
Caption = "XMODEM"
End
Begin Menu menuTXymodem
Caption = "YMODEM"
End
End
Begin Menu menuReceive
Caption = "Receive"
Enabled = 0 'False
Begin Menu menuRXxmodem
Caption = "XMODEM"
End
Begin Menu menuRXymodem
Caption = "YMODEM"
End
End
Begin Menu menuBreak
Caption = "BREAK"
End
Begin Menu menuDebug
Caption = "Debug"
End
End
' TERM.BAS
Option Explicit
Sub AcceptOK_Click ()
Dim S As String
AcceptPane.Visible = False
menuDial.Enabled = False
S = AcceptText.Text
Call DisplayLine(TERM, S)
If AcceptText.Text = "" Then
Call DisplayLine(TERM, "Missing Text")
Exit Sub
End If
' set 1st state
If WaitingFor = PHONE_NUMBER Then
mioState = Dial_1
Else
'Waiting for FILE_NAME
xyState = FirstXYstate
FirstXYstate = 0
End If
End Sub
Sub Form_KeyPress (KeyAscii As Integer)
Dim Code As Integer
'''TERM.Print ">>>"; Hex$(KeyAscii); "";
If KeyAscii <> 10 Then
Code = SioPutc(ThePort, KeyAscii)
End If
End Sub
Sub Form_Load ()
Dim Row As Integer
BaudText(1) = "600"
BaudText(2) = "1200"
BaudText(3) = "2400"
BaudText(4) = "4800"
BaudText(5) = "9600"
BaudText(6) = "19200"
BaudText(7) = "38400"
BaudText(8) = "57600"
ParityText(0) = "N"
ParityText(1) = "O"
ParityText(2) = "?"
ParityText(3) = "E"
ParityText(4) = "?"
ParityText(5) = "M"
ParityText(6) = "?"
ParityText(7) = "S"
FatalFlag = 0
ThePort = COM1
TheBaudCode = Baud38400
TheDataBits = WordLength8
TheStopBits = OneStopBit
TheParity = NoParity
OnLineFlag = 0
mioState = 0
xyState = 0
DebugLevel = 0
Call ShowConfig
Call DisplayInit(TERM)
End Sub
Sub menu1200_Click ()
Call UncheckBaudRate
menu1200.Checked = True
TheBaudCode = Baud1200
Call ShowConfig
End Sub
Sub menu19200_Click ()
Call UncheckBaudRate
menu19200.Checked = True
TheBaudCode = Baud19200
Call ShowConfig
End Sub
Sub menu2400_Click ()
Call UncheckBaudRate
menu2400.Checked = True
TheBaudCode = Baud2400
Call ShowConfig
End Sub
Sub menu38400_Click ()
Call UncheckBaudRate
menu38400.Checked = True
TheBaudCode = Baud38400
Call ShowConfig
End Sub
Sub menu4800_Click ()
Call UncheckBaudRate
menu4800.Checked = True
TheBaudCode = Baud4800
Call ShowConfig
End Sub
Sub menu57600_Click ()
Call UncheckBaudRate
menu57600.Checked = True
TheBaudCode = Baud57600
Call ShowConfig
End Sub
Sub menu9600_Click ()
Call UncheckBaudRate
menu9600.Checked = True
TheBaudCode = Baud9600
Call ShowConfig
End Sub
Sub menuBREAK_Click ()
Dim Code As Integer
mioState = 0
Code = mioBreak(ThePort)
Code = xyAbort(ThePort)
menuDial.Enabled = True
menuBREAK.Enabled = False
End Sub
Sub menuCOM1_Click ()
Call UncheckComPorts
menuCOM1.Checked = True
ThePort = COM1
Call ShowConfig
End Sub
Sub menuCOM2_Click ()
Call UncheckComPorts
menuCOM2.Checked = True
ThePort = COM2
Call ShowConfig
End Sub
Sub menuCOM3_Click ()
Call UncheckComPorts
menuCOM3.Checked = True
ThePort = COM3
Call ShowConfig
End Sub
Sub menuCOM4_Click ()
Call UncheckComPorts
menuCOM4.Checked = True
ThePort = COM4
Call ShowConfig
End Sub
Sub menuDebug_Click ()
Dim N As Integer
Dim Parm As Integer
Dim Text As String * 81
'display state variables
Call DisplayLine(TERM, "mioState = " + Str$(mioState))
Call DisplayLine(TERM, "xyState = " + Str$(xyState))
' any messages from xyDriver ?
While xyGetMessage(Text, 80) > 0
Call DisplayLine(TERM, Text)
Wend
'get current driver state
Parm = xyGetParameter(ThePort, XY_GET_STATE)
Call DisplayLine(TERM, "STATE = " + Str$(Parm))
Parm = xyGetParameter(ThePort, XY_GET_ERROR_CODE)
If Parm <> 0 Then
Call DisplayLine(TERM, "Error code =" + Str$(Parm))
Parm = xyGetParameter(ThePort, XY_GET_ERROR_STATE)
Call DisplayLine(TERM, "Error state =" + Str$(Parm))
End If
'increment xyDriver Debug level
DebugLevel = (DebugLevel + 1) Mod 3
Call DisplayLine(TERM, "xyDriver DebugLevel = " + Str$(DebugLevel))
End Sub
Sub menuDial_Click ()
AcceptPane.Caption = "Phone Number?"
menuDial.Enabled = False
menuBREAK.Enabled = True
AcceptText.Text = ""
AcceptPane.Visible = True
WaitingFor = PHONE_NUMBER
End Sub
Sub menuEight_Click ()
Call UncheckDataBits
menuEight.Checked = True
TheDataBits = WordLength8
Call ShowConfig
End Sub
Sub menuEven_Click ()
Call UncheckParity
menuEven.Checked = True
TheParity = EvenParity
Call ShowConfig
End Sub
Sub menuExit_Click ()
Call GoOffLine
End
End Sub
Sub menuNone_Click ()
Call UncheckParity
menuNone.Checked = True
TheParity = NoParity
Call ShowConfig
End Sub
Sub menuOdd_Click ()
Call UncheckDataBits
menuOdd.Checked = True
TheParity = OddParity
Call ShowConfig
End Sub
Sub menuOffLine_Click ()
menuChange.Enabled = True
menuOffline.Enabled = False
menuOnline.Enabled = True
menuDial.Enabled = False
menuSend.Enabled = False
menuReceive.Enabled = False
Call GoOffLine
Call ShowConfig
End Sub
Sub menuOne_Click ()
Call UncheckStopBits
menuOne.Checked = True
TheStopBits = OneStopBit
Call ShowConfig
End Sub
Sub menuOnLine_Click ()
menuOffline.Enabled = True
menuOnline.Enabled = False
menuChange.Enabled = False
menuDial.Enabled = True
menuSend.Enabled = True
menuReceive.Enabled = True
Call DisplayInit(TERM)
Call GoOnLine
Call ShowConfig
End Sub
Sub menuRXxmodem_Click ()
AcceptPane.Caption = "XM Filename?"
menuBREAK.Enabled = True
AcceptText.Text = ""
AcceptPane.Visible = True
LastPacket = -1
WaitingFor = FILE_NAME
FirstXYstate = RX_XM
End Sub
Sub menuRXymodem_Click ()
menuBREAK.Enabled = True
LastPacket = -1
'filename supplied by sender
xyState = RX_YM
End Sub
Sub menuSeven_Click ()
Call UncheckDataBits
menuSeven.Checked = True
TheDataBits = WordLength7
Call ShowConfig
End Sub
Sub menuTwo_Click ()
Call UncheckStopBits
menuTwo.Checked = True
TheStopBits = TwoStopBits
Call ShowConfig
End Sub
Sub menuTXxmodem_Click ()
AcceptPane.Caption = "XM Filename?"
menuBREAK.Enabled = True
AcceptText.Text = ""
AcceptPane.Visible = True
LastPacket = -1
WaitingFor = FILE_NAME
FirstXYstate = TX_XM
End Sub
Sub menuTXymodem_Click ()
AcceptPane.Caption = "YM Filename?"
menuBREAK.Enabled = True
AcceptText.Text = ""
AcceptPane.Visible = True
LastPacket = -1
WaitingFor = FILE_NAME
FirstXYstate = TX_YM
End Sub
Sub Timer_Timer ()
If OnLineFlag Then
'get incoming serial data
Call GetIncoming
End If
End Sub
Sub Timer1_Timer ()
If OnLineFlag Then
'get incoming serial data
Call GetIncoming
End If
End Sub
Sub UncheckBaudRate ()
'uncheck all baud rates
menu1200.Checked = False
menu2400.Checked = False
menu4800.Checked = False
menu9600.Checked = False
menu19200.Checked = False
menu38400.Checked = False
menu57600.Checked = False
End Sub
Sub UncheckComPorts ()
'uncheck all COM ports
menuCOM1.Checked = False
menuCOM2.Checked = False
menuCOM3.Checked = False
menuCOM4.Checked = False
End Sub
Sub UncheckDataBits ()
'uncheck data bits
menuSeven.Checked = False
menuEight.Checked = False
End Sub
Sub UncheckParity ()
'uncheck parity
menuOdd.Checked = False
menuEven.Checked = False
menuTwo.Checked = False
End Sub
Sub UncheckStopBits ()
'uncheck stop bits
menuOne.Checked = False
menuNone.Checked = False
End Sub